home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hyperqua.sit / Hyperquackey 1.1 / card_6982.txt < prev    next >
Encoding:
Text File  |  1988-11-26  |  1.7 KB  |  76 lines
  1. -- card: 6982 from stack: in.1
  2. -- bmap block id: 7529
  3. -- flags: 4000
  4. -- background id: 2811
  5. -- name: HQ Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global t1, t2, t3
  9.   put field "Winning Score" into t1
  10.   put field "Playing Time" into t2
  11.   put field "Vulnerability Score" into t3
  12. end openCard
  13.  
  14. on closeCard
  15.   global winningScore, playingTime, vulScore, t1, t2, t3
  16.   if isNumber(field "Winning Score") then
  17.     put field "Winning Score" into winningScore
  18.   else put t1 into field "Winning Score"
  19.   if isNumber(field "Playing Time") then
  20.     put field "Playing Time" into playingTime
  21.   else put t2 into field "Playing Time"
  22.   if isNumber(field "Vulnerability Score") then
  23.     put field "Vulnerability Score" into vulScore
  24.   else put t3 into field "Vulnerability Score"
  25. end closeCard
  26.  
  27. on arrowKey
  28.   errorSound
  29. end arrowKey
  30.  
  31. function isNumber theNum
  32. put true into result
  33. if the length of theNum > 0 then
  34.   repeat with i = 1 to the length of theNum
  35.     if char i of theNum < "0" or char i of theNum > "9" then
  36.       put false into result
  37.       exit repeat
  38.     end if
  39.   end repeat
  40. else put false into result
  41. return result
  42. end isNumber
  43.  
  44.  
  45.  
  46. -- part 1 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=455 top=300 right=335 bottom=493
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 2162 / 2162
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Return
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   visual effect zoom in
  61.   go card "Player 1"
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part contents for background part 1
  67. ----- text -----
  68. 5000
  69.  
  70. -- part contents for background part 3
  71. ----- text -----
  72. 2000
  73.  
  74. -- part contents for background part 2
  75. ----- text -----
  76. 180